Celestin Apprentice 7/Apprentice-Release7.iso/Environments/Small Eiffel 0.4.8/lib_show/animal/quadrupede.e

Text File | 1997-04-13 | 371 b | 19 lines | [TEXT/ttxt]

-- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C)
-- Dominique COLNET and Suzanne COLLIN -- [e-mail]
--
deferred class QUADRUPEDE

inherit
   ANIMAL
      redefine reproduction
      end;

feature {ANY}

   reproduction(autre: ANIMAL): ANIMAL is
      do
     Result := autre.reproduction_avec_quadrupede(Current);
      end;

end -- QUADRUPEDE